home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 53 / 053.d81 / roman boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  25 lines
  1. 10 poke53265,peek(53265)and239
  2. 100 poke53280, 6:poke53281, 1:print"[147][142]";
  3. 101 print"[155]                                            [154]                         ";
  4. 102 print"       [155]        [154]        loadstar presents[160]      [152] [155]       [154]            ";
  5. 103 print"                    [152] [155]       [154]    [146][156]O[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]P[154]    [152] [155]  ";
  6. 104 print"     [154]    [146][156][180]romannumerals[156][167] [154]   [152][160][155]       [154]    [146][156][204][175][175][175][175][175][175][175][175][175]";
  7. 105 print"[175][175][175][175][175][175][175][175][175][175][175][175][175][186] [154]   [152][160][155]       [154]                             [154]   [152] [155]   ";
  8. 106 print"    [154]                                [152] [155]       [154]                        ";
  9. 107 print"        [152] [155]       [154]   [146]O[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]P[154]   [152][160][155]       [154]   [146][180]";
  10. 108 print"writtenbyg.majewski[170] [154]  [152][160][155]       [154]   [146][180]";
  11. 109 print"[170] [154]  [152][160][155]       [154]   [146]L[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] [154]  [152] [155]       [154]    ";
  12. 110 print"                          [154]  [152] [155]       [154]                               ";
  13. 111 print" [152][160][155]       [154]                                [152] [155]       [154]     [146][149]O[183][183][183][183][183][183][183][183][183]";
  14. 112 print"[183][183][183][183][183][183][183][183][183][183][183]P[154]     [152][160][155]       [154]     [146][149][180]copyright1988[149][167] [154]    [152] [155]";
  15. 113 print"       [154]     [146][149]L[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] [154]    [152] [155]       [154]               ";
  16. 114 print"             [154]    [152] [155]       [154]                                [152] [155]       [154]";
  17. 115 print"    press space to continue.    [152] [155]       [154]                             ";
  18. 116 print"   [152][160][155]        [152]                                [155]  "
  19. 117 poke2023,96+128:poke56295,15:poke53265,peek(53265)or16
  20. 119 geta$:ifa$<>" "then 119
  21. 120 print"[147][208]lease wait while loading"
  22. 121 print"p[207]44,10:p[207]10*256,0:load"chr$(34)"roman numeral"chr$(34)",8"
  23. 122 poke631,13:poke632,asc("r"):poke633,asc("u"):poke634,asc("n"):poke635,13:
  24. 123 poke198,5
  25.